﻿Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunButton.Click
        Dim m_oExcelSheet As Excel.Application

        m_oExcelSheet = New Excel.Application
        m_oExcelSheet.Workbooks.Open("c:\QualityCenter_To_Excel_Query.xlsm")
        m_oExcelSheet.Run("QCConnect_Example")

    End Sub
End Class
